home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / dc25h-3.zip / DEMO1.MAC < prev    next >
Text File  |  1990-03-01  |  6KB  |  171 lines
  1. ; DEMO1.MAC, example macro program for DANCAD3D.COM v2.5x
  2. ; Copyright (c) 1988-1990, Daniel H. Hudgins, All rights reserved.
  3. ; Reproduction in any manner, without express permission, is prohibited.
  4.  
  5. RUN DEMO1.SUB  ; Set-up and Intro.
  6.  
  7. NAME 1 = DEMO1P    0
  8. LET |FRAMES   =   37
  9. LET |CRANKRAD =  100
  10. LET |RODC2C   = -600
  11. LET |CRANKROT =    0
  12. LET |COUNT    =    0
  13.  
  14. { START ANIMATION LOOP }
  15.  
  16. :LOOP_1
  17.  
  18. INITIALIZE
  19. LOAD ELEMENTS DEMO1.3DE
  20.  
  21. LET |CRANKROT  = [ |CRANKROT + ( 360 / |FRAMES ) ]
  22. LET |YDIST     = [ SIN( RAD( |CRANKROT ) ) * |CRANKRAD ]
  23. LET |XDIST     = [ |YDIST / TAN( RAD( |CRANKROT ) ) ]
  24. LET |PSTNOFF   = [ |RODC2C + |XDIST ]
  25.  
  26. # 1 ROTATE C  0 0 |CRANKROT
  27. # 2 OFFSET C  |XDIST [ |YDIST * -1 ] 0
  28. # 2 ROTATE C  0 0 [ DEG( ARCSIN( ( |YDIST * -1 ) / |RODC2C ) ) ]
  29. # 3 OFFSET C  |PSTNOFF 0 0
  30.  
  31. LET |COUNT = [ |COUNT + 1 ]
  32.  
  33. GRAPHMODE B&W
  34.  
  35. LOCATE 2 2 ; Put text cursor at upper left of screen.
  36. ECHO DANCAD3D v2.5 MACRO DEMO1.MAC, THIS IS FRAME NUMBER: %%
  37. OUTPUT |COUNT
  38. ECHO  OF %%
  39. OUTPUT |FRAMES
  40.  
  41. LOCATE 2 21
  42. ECHO   E X A M P L E    D A T A    W I N D O W %%
  43.  
  44. LOCATE 2 23
  45. ECHO CRANK SHAFT'S ROTATION = %%
  46. OUTPUT |CRANKROT
  47. ECHO  DEGREES
  48.  
  49. LOCATE 2 24
  50. ECHO PISTON OFFSET DISTANCE = %%
  51. OUTPUT |PSTNOFF
  52. ECHO  UNITS
  53.  
  54. # 0 DISPLAY -20 -20 0 -1000 1.9 1 275 0    ; Main display of parts.
  55.  
  56. IF |COUNT = 2 THEN GOTO :SAVE2D :RETURN2D  ; Save frame 6 in 2D file.
  57.  
  58. INITIALIZE
  59.  
  60. { This outline was made with pixel trace in the on-screen sub-menu. }
  61.  
  62. ENTER
  63.  -3.95   -2.7      0        -3.95        2.7          0 1 1 0 0
  64.  -3.95    2.7      0         3.95        2.7          0 1 1 0 0
  65.   3.95    2.7      0         3.95       -2.7          0 1 1 0 0
  66.   3.95   -2.7      0        -3.95       -2.7          0 1 1 0 0
  67.  -3.95   -2.3      0         3.95       -2.3          0 1 1 0 0
  68.   0.45    2.7      0         0.45        1.6          0 1 1 0 0
  69.   0.45    1.6      0        -3.95        1.6          0 1 1 0 0
  70.  -3.95      2      0         0.45          2          0 1 1 0 0
  71. 0 0 0  0 0 0  0 0 0 0  { END ENTER }
  72.  
  73. # 0 DISPLAY 0 0 0 1E18 240 1 0 0  ; Add outline.
  74.  
  75. SAVE PIXEL NAME 1 NEXT  ; Save screen to a numbered file.
  76.  
  77. LOOP :LOOP_1 [ |FRAMES - 1 ]
  78.  
  79. ; Show the frame set.
  80.  
  81. GRAPH B&W  ; Set the video mode to display graphics.
  82. ANIMATE DEMO1P 100
  83. TEXTMODE   ; Set video back in text mode.
  84.  
  85. GOTO :MAKEASCE :RETURNASCE
  86.  
  87. STOP ; END OF MAIN CODE
  88.  
  89. ; SAVE 2D PROCEDURE
  90.   
  91. :SAVE2D
  92. ; Save drawing for print out.
  93. # 0 SAVE 2D -20 -20 0 -1000 1.9 1 275 0 DEMO1A.2D
  94. GOTO :RETURN2D
  95.  
  96. ; MAKE ASCII PROCEDURE 
  97.  
  98. :MAKEASCE
  99.  
  100. TEXT  ; Clear the screen
  101.  
  102. ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
  103. ECHO │         DEMO1.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER.          │
  104. ECHO └─────────────────────────────────────────────────────────────────────────────┘
  105. LOCATE 1 5
  106. ECHO     This DEMO1.MAC macro file will now make a drawing file of the piston screen
  107. ECHO you have just been looking at  so  you  can  print  out  the  drawing  at  high
  108. ECHO resolution.  The  drawing  will  be put in an ASCII type file named DEMO1E.ASC.
  109. ECHO The drawing will also be left in the workspace  for  you  to  look  at  in  the
  110. ECHO drawing  editor or preview screen.  Please read the file DANCAD3D.DOC on one of
  111. ECHO the program disks for more information about printing drawings  out.  To  print
  112. ECHO this drawing you will have the perspective values set to:
  113. LOCATE 1 13
  114. ECHO       FOR 11 INCH WIDTH               or                 FOR 8 INCH WIDTH
  115. ECHO        X ROTATION = 0                 or                  X ROTATION = 0
  116. ECHO        Y ROTATION = 0                 or                  Y ROTATION = 0
  117. ECHO        Z ROTATION = 90                or                  Z ROTATION = 0
  118. ECHO        DISTANCE   = 1E18              or                  DISTANCE   = 1E18
  119. ECHO        SCALE      = 320               or                  SCALE      = 240
  120. ECHO        MODE       = 1                 or                  MODE       = 1
  121. ECHO        X SHIFT    = 0                 or                  X SHIFT    = 0
  122. ECHO        Y SHIFT    = 0                 or                  Y SHIFT    = 0
  123. LOCATE 1 23
  124. ECHO     To load the file DEMO1E.ASC a later date press F L A from the main menu.
  125.  
  126. LOCATE 1 25 ECHO        <<< Read the above information while the program is working... >>>   %%
  127.  
  128. INITIALIZE
  129. LOAD ASCII DEMO1D.ASC
  130.  
  131. ; If you have the full registered user outfit you can change the lettering
  132. ; font from DANCAD3D.FON to one of the other fonts i.e. INTRNAT1.FON
  133.  
  134. LETTERING
  135. DANCAD3D v2.5 MACRO DEMO1.MAC, THIS IS FRAME NUMBER:       2 OF       37
  136. 0 -2.5 0   0 0 0    0.15 0.08 1 1 0 0    0 1 0.333333333 7.6
  137. C J DANCAD3D.FON
  138.  
  139. LETTERING
  140. EXAMPLE DATA WINDOW
  141. -1.75 1.8 0   0 0 0    0.15 0.08 1 1 0 0    0 1 0.333333333 3.8
  142. C J DANCAD3D.FON
  143.  
  144. LETTERING
  145. CRANK SHAFT'S ROTATION = 19.4564594 DEGREES
  146. -3.8 2.2 0   0 0 0    0.15 0.08 1 1 0 0    0 1.19 0.333333333 1
  147. F M DANCAD3D.FON
  148.  
  149. LETTERING
  150. PISTON OFFSET DISTANCE = -505.71225 UNITS
  151. -3.8 2.5 0   0 0 0    0.15 0.08 1 1 0 0    0 1.19 0.333333333 1
  152. F M DANCAD3D.FON
  153.  
  154. # 0 SAVE 2D 0 0 0 -1.0000E+18 240 1 0 0 DEMO1B.2D
  155. INIT
  156. LOAD 2D DEMO1A.2D
  157. LOAD 2D DEMO1B.2D
  158. # 0 MAGNIFY ZERO 0.0041666 0.0041666 0
  159. # 0 SAVE ASCII DEMO1E.ASC   ; Use this ASCII file for print out
  160.  
  161.  
  162. BEEP
  163. LOCATE 1 25 ECHO      Press the [Return] key when finished reading the above information.    %%
  164. WAIT  ; Wait for [Return] or [Mouse-Left] button to be pressed.
  165. LOCATE 1 25 ECHO              <<< Working: Macro now running, please stand by... >>>         %%
  166.  
  167. GOTO :RETURNASCE
  168.  
  169.  
  170. ; END OF MACRO DEMO1.MAC 
  171.